$$ := '';
$$ := $$ + '%!PS-Adobe-2.0 '#13#10;
$$ := $$ + '/orient 0 def /xpos 0 def /ypos 0 def '#13#10;
$$ := $$ + '0 0 0 setrgbcolor'#13#10; // Stiftfarbe
$$ := $$ + '/goto { /ypos exch def /xpos exch def xpos ypos moveto} def'#13#10;
$$ := $$ + '/turn { /orient exch orient add def} def '#13#10;
$$ := $$ + '/draw { /len exch def newpath xpos ypos moveto '#13#10;
$$ := $$ + '   /xpos xpos orient sin len mul add def '#13#10;
$$ := $$ + '   /ypos ypos orient cos len mul add def '#13#10;
$$ := $$ + '   xpos ypos lineto stroke '#13#10;
$$ := $$ + '} def '#13#10;
$$ := $$ + '300 400 goto'#13#10; // in Blattmitte beginnen

$$ := $$ + $1+''#13#10; // Die synthetisierten Inhalte in $1 anfgen   

Output.WriteLine($$);